library(shiny)
library(ECharts2Shiny)
# Prepare sample data for plotting ---------------------------------------
dat <- data.frame(x = iris$Sepal.Length,
                  y = iris$Sepal.Width,
                  group = iris$Species)
shinyServer(function(input, output) {
  # Call functions from ECharts2Shiny to render charts
  # Scatter plot
  renderScatter("test_scatter", data = dat,
                point.type = c('diamond', 'rect', 'triangle'))
  }
  )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.